Space & Astronomy/Space and Astronomy (October 1993).iso/pc/programs/mac/almanac.sit/Almanac v1.8/card_9018.txt

Text File | 1990-04-21 | 15KB | 701 lines

-- card: 9018 from stack: in.8
-- bmap block id: 9784
-- flags: 0000
-- background id: 6859
-- name: fx
----- HyperTalk script -----
on enterKey
  set numberFormat to "0.#"
  put line 1 of cd fld numbs into c1
  put line 2 of cd fld numbs into c2
  put line 3 of cd fld numbs into c3
  put line 5 of cd fld numbs into c5
  put round(10*c1*c2/c3) into line 4 of cd fld numbs
  put c5/c3*c2 into line 6 of cd fld numbs
  put c5/c3 into line 7 of cd fld numbs
  put round(10*c5*c1*c2/c3) into line 8 of cd fld numbs
  if hilite of btn "f/ratio" then put line 6 of cd fld numbs into cd fld "3"
  calc
end enterKey

on calc
  if the selection is not empty then put empty into selection
  put -1 into emptyField
  put false into var
  repeat with i=1 to 5
    if line 1 of cd fld i is empty then
      if var then
        put 0 into emptyField
        exit calc
      end if
      put i into emptyField
      put true into var
    end if
  end repeat
  put "1,2,4,8,15,30,60,125,250,500,1000" into dur
  if emptyField is -1 then
    put empty into cd fld 2
    put 2 into emptyField
  end if
  if emptyField is 0 then
    put return & "Not enough items specified..." into cd fld "Output"
    flashField 2
    exit calc
  end if
  put line 1 of cd fld 1 into fx1
  put line 1 of cd fld 2 into it
  if hilite of btn "min." then multiply it by 60
  if char 2 of it is "/" then get value of it
  put 12+log2(it) into fx2
  put 10-2*log2(line 1 of cd fld 3) into fx3
  if hilite of btn "cm." then multiply fx3 by -1
  put log2(line 1 of cd fld 4)-4 into fx4
  put -10/3*line 1 of cd fld 5 into fx5
  set numberFormat to "0.#"
  if emptyField is 1 then
    put fx2+fx3+fx4+fx5 into cd fld 1
    if first word of cd fld object contains "Stars" then
      put 4.5+0.75*(fx2+fx3+fx4+fx5-9) into last word of cd fld object
    end if
  end if
  if emptyField is 2 then
    put exp2(fx1-fx3-fx4-fx5-12) into it
    if it<60 then
      if it<1 then
        get round(1/it)
        repeat with i=1 to 11
          if it<=item i of dur then
            get item i of dur
            exit repeat
          end if
        end repeat
        put "1/" & it into cd fld 2
      else
        put it into cd fld 2
      end if
      set hilite of btn "min." to false
      set hilite of btn "sec." to true
    else
      divide it by 60
      set hilite of btn "min." to true
      set hilite of btn "sec." to false
      put it into cd fld 2
    end if
  end if
  if emptyField is 3 then
    put fx1-fx2-fx4-fx5 into it
    if hilite of btn "f/ratio"
    then put exp2((10-it)/2) into it
  else put exp2((10+it)/2) into it
  put it into cd fld 3
end if
if emptyField is 4 then
  put exp2(fx1-fx2-fx3-fx5+4) into cd fld 4
end if
if emptyField is 5 then
  put 0.3*(fx1-fx2-fx3-fx4) into cd fld 5
end if
end calc



-- part 12 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=206 top=104 right=124 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sec.
----- HyperTalk script -----
on mouseUp
  set hilite of button "sec." to not hilite of button "sec."
  set hilite of button "min." to not hilite of button "sec."
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=241 top=123 right=143 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: f/ratio
----- HyperTalk script -----
on mouseUp
  set hilite of button "f/ratio" to not hilite of button "f/ratio"
  set hilite of button "cm." to not hilite of button "f/ratio"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=190 top=123 right=143 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cm.
----- HyperTalk script -----
on mouseUp
  set hilite of button "cm." to not hilite of button "cm."
  set hilite of button "f/ratio" to not hilite of button "cm."
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=257 top=104 right=124 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: min.
----- HyperTalk script -----
on mouseUp
  set hilite of button "min." to not hilite of button "min."
  set hilite of button "sec." to not hilite of button "min."
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=50 top=198 right=220 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sun
----- HyperTalk script -----
on mouseUp
  put -8 into card field 1
  put "Sun" into card field "Object"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=50 top=219 right=239 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Full Moon
----- HyperTalk script -----
on mouseUp
  put 11 into card field 1
  put "Full Moon" into card field "Object"
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=50 top=238 right=259 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Gibbous Moon
----- HyperTalk script -----
on mouseUp
  put 12 into card field 1
  put "Gibbous Moon" into card field "Object"
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=50 top=258 right=279 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quarter Moon
----- HyperTalk script -----
on mouseUp
  put 13.5 into card field 1
  put "Quarter Moon" into card field "Object"
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=50 top=278 right=299 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crescent Moon
----- HyperTalk script -----
on mouseUp
  put 14.5 into card field 1
  put "Crescent Moon" into card field "Object"
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=50 top=298 right=319 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Earthshine Moon
----- HyperTalk script -----
on mouseUp
  put 24.5 into card field 1
  put "Earthshine Moon" into card field "Object"
end mouseUp



-- part 30 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=50 top=218 right=239 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Central Umbra
----- HyperTalk script -----
on mouseUp
  put 23.5 into card field 1
  put "Moon - Central Umbra" into card field "Object"
end mouseUp



-- part 45 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=145 top=87 right=106 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 31 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=50 top=238 right=259 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edge Umbra
----- HyperTalk script -----
on mouseUp
  put 22 into card field 1
  put "Moon - Just within Umbra" into card field "Object"
end mouseUp



-- part 32 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=50 top=258 right=279 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Partial Umbra
----- HyperTalk script -----
on mouseUp
  put 20 into card field 1
  put "Moon - Partially within Umbra" into card field "Object"
end mouseUp



-- part 33 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=50 top=278 right=299 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Penumbra
----- HyperTalk script -----
on mouseUp
  put 15 into card field 1
  put "Moon - Penumbra" into card field "Object"
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=151 top=198 right=220 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lunar Eclipse
----- HyperTalk script -----
on mouseUp
  if not visible of button 6 then
    repeat with i= 11 to 14
      set visible of button i to false
    end repeat
    repeat with i= 6 to 10
      set visible of button i to true
    end repeat
  else
    repeat with i= 6 to 10
      set visible of button i to false
    end repeat
    repeat with i= 11 to 14
      set visible of button i to true
    end repeat
  end if
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=151 top=219 right=240 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stars
----- HyperTalk script -----
on mouseUp
  Ask "Faintest Magnitude?"
  put rnd10(4*(it-4.5)/3+9) into card field 1
  put "Stars: Mag. Limit =" && it into card field "Object"
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=158 top=239 right=259 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Venus
----- HyperTalk script -----
on mouseUp
  put 8 into card field 1
  put "Venus" into card field "Object"
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=162 top=258 right=279 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mars @ opp.
----- HyperTalk script -----
on mouseUp
  put 13 into card field 1
  put "Mars @ opp." into card field "Object"
end mouseUp



-- part 47 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=145 top=105 right=124 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2


-- part 38 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=161 top=278 right=299 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jupiter
----- HyperTalk script -----
on mouseUp
  put 13 into card field 1
  put "Jupiter" into card field "Object"
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=161 top=298 right=319 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Saturn
----- HyperTalk script -----
on mouseUp
  put 15.5 into card field 1
  put "Saturn" into card field "Object"
end mouseUp



-- part 48 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=145 top=123 right=142 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3


-- part 49 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=145 top=141 right=160 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 4


-- part 50 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=145 top=159 right=178 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 5


-- part 51 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=188 top=87 right=106 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Object


-- part 42 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=375 top=173 right=320 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: numbs


-- part 40 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=265 top=173 right=320 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 53 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=81 top=40 right=145 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 15026
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Output


-- part contents for card part 40
----- text -----
*Aperture (cm)
*f/ratio
eyepiece fl. (mm)
magnification
camera fl. (mm)
effective f/ratio
big M
effective fl.

-- part contents for card part 42
----- text -----
25.4
10
15
169
50
33.3
3.3
8467

-- part contents for card part 50
----- text -----
0

-- part contents for card part 48
----- text -----
33.3

-- part contents for card part 51
----- text -----
Jupiter

-- part contents for card part 53
----- text -----

Not enough items specified...

-- part contents for background part 11
----- text -----
Sidereal Time = 00:35
0.589398

-- part contents for background part 12
----- text -----
Universal Time = 17:50
17.849444

-- part contents for card part 49
----- text -----
400

-- part contents for card part 45
----- text -----
13

-- part contents for card part 47
----- text -----
1/15